Mac-Source 1994 July/Mac-Source_July_1994.iso/HyperCard/PrefWorks⁄FileWorks XFCN 1.0/PrefWorks_FileWorks XFCN 1.0/cards.xml

Text File | 1994-03-28 | 29KB | 803 lines

card_4403.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>4403</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4818.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2582</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3145.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>26</left>
            <top>36</top>
            <right>131</right>
            <bottom>61</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Open File</name>
        <script>on mouseUpglobal refnumshow message boxput FileWorks(Open,cd field pathname,cd field newfile,char 1 to 4 of cd field type,¬char 1 to 4 of cd field creator) into fredif first word of fred is not "ERROR:" thenput the first item of fred into refnumput the second item of fred into cd field pathnameend ifput fredend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>85</left>
            <top>81</top>
            <right>132</right>
            <bottom>99</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Type</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>85</left>
            <top>111</top>
            <right>133</right>
            <bottom>129</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Creator</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>150</left>
            <top>36</top>
            <right>255</right>
            <bottom>62</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Close File</name>
        <script>on mouseUpglobal refnumput FileWorks(Close,refnum)put empty into refnumend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>97</left>
            <top>187</top>
            <right>147</right>
            <bottom>205</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Newfile</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>246</left>
            <top>88</top>
            <right>492</right>
            <bottom>287</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>thedata</name>
        <script></script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>381</left>
            <top>297</top>
            <right>489</right>
            <bottom>321</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Write the data</name>
        <script>on mouseUpglobal refnumput PrefWorks(Write,refnum,card field thedata)end mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>254</left>
            <top>297</top>
            <right>362</right>
            <bottom>321</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Read the data</name>
        <script>on mouseUpglobal refnumput PrefWorks(Read,refnum) into fredif first word of fred is not "ERROR:" thenput fred into cd field thedataelseput fredend ifend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>69</left>
            <top>141</top>
            <right>242</right>
            <bottom>178</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>pathname</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>TEXT</text>
    </content>
    <content>
        <layer>card</layer>
        <id>4</id>
        <text>R*ch</text>
    </content>
    <content>
        <layer>card</layer>
        <id>7</id>
        <text>new</text>
    </content>
    <name>Try FileWorks..</name>
    <script>on closecardglobal refnumhide message boxif refnum is not empty thenput PrefWorks(Close,refnum)put empty into refnumend ifput "new" into cd field newfileput empty into cd field thedataput empty into cd field pathnameend closecard</script>
</card>


card_5312.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>5312</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5433.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2582</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3145.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>23</left>
            <top>34</top>
            <right>489</right>
            <bottom>336</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>About FileWorks...</name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>491</left>
            <top>312</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>28811</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>right arrow</name>
        <script>on mouseUpvisual effect wipe leftif the commandKey is down then go last cardelse go next cardend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>312</top>
            <right>20</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>28810</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>left arrow</name>
        <script>on mouseUpvisual effect wipe rightgo prev cardend mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>What is it:-----------FileWorks was written to fill a need here at Curtin University for our Multimedia development in SuperCard stacks to get data to and from data files at a reasonable speed.Go to the next card of this stack to try it out....FileWorks is Copyright © 1993, Ken Taylor and Curtin University of TechnologyFileWorks is distributed free, but carries no warranties of any kind.Scripting Info:---------------FileWorks takes one mandatory parameter which tells it what to do.  The choices are as follows:1) FileWorks(Open,PATHNAME[,NEW,CREATOR,TYPE])      ..where PATHNAME is the full pathname of the file           NEW is either 'new' or 'old', depending on whether you want               to create a new file or open an existing one (optional,               'old' is the default)           CREATOR is a four character OSType used when creating a new                   file (optional)           TYPE is a four character OSType used when creating a new                file (optional)            (If no type of creator is supplied, the file becomes a             TeachText™ file)   ..returns two items: a file reference number which is used for any                          other commands, and                        the full pathname.2) FileWorks(Close,REFNUM)   ..where REFNUM is the file reference number returned by the Open                  clause.   ..returns either 'OK' or a string starting with 'ERROR:' (see below)3) FileWorks(Write,REFNUM,DATA)   ..where REFNUM is the file reference number returned by the Open                  clause, and           DATA is the data to be written.   ..returns either 'OK' or a string starting with 'ERROR:' (see below)4) FileWorks(Read,REFNUM)   ..where REFNUM is the file reference number returned by the Open                  clause   ..returns either the data from the file or a string starting with              'ERROR:' (see below)Errors:-------Errors are usually reasonably descriptive.  The possible error returns are:'ERROR: External FS''ERROR: File not found''ERROR: File not open''ERROR: I/O''ERROR: No such volume''ERROR: Bad file reference number''ERROR: Disk full''ERROR: File locked''ERROR: String seems to be a negative length !''ERROR: Volume locked''ERROR: Write protected''ERROR: Duplicate filename''ERROR: Too many files open''ERROR: File already open for writing''ERROR: Bad file name''ERROR: Directory is full''ERROR: End of file reached''ERROR: Too Few Parameters for this function call''ERROR: Couldn't understand directive'or in the case where something odd happens:'ERROR: Unknown error NUM'..where NUM is the Macintosh OSErr.Author Information:-------------------FileWorks was written by Ken Taylor for Curtin University in August 1993.  I can be contacted via the Internet at '[e-mail]' and would be happy to hear from you if you have any trouble with PrefWorks, any ideas for new versions (or other XFCNs or XCMDs) or even just to say hello.Ken [e-mail] Support and ProgrammingCurtin University of TechnologyKent StreetBentleyPerth, Western Australia</text>
    </content>
    <name>About FileWorks</name>
    <script></script>
</card>


card_3035.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3035</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3590.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2582</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3145.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>26</left>
            <top>36</top>
            <right>131</right>
            <bottom>61</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Open Pref File</name>
        <script>on mouseUpglobal refnumshow message boxput PrefWorks(Open,cd field filename,char 1 to 4 of cd field type,¬char 1 to 4 of cd field creator) into fredif first word of fred is not "ERROR:" thenput the first item of fred into refnumput the second item of fred into cd field newfileend ifput fredend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>85</left>
            <top>81</top>
            <right>132</right>
            <bottom>99</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Type</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>85</left>
            <top>111</top>
            <right>133</right>
            <bottom>129</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Creator</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>150</left>
            <top>36</top>
            <right>255</right>
            <bottom>62</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Close Pref File</name>
        <script>on mouseUpglobal refnumput PrefWorks(Close,refnum)put empty into refnumput empty into cd field newfileend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>90</left>
            <top>201</top>
            <right>140</right>
            <bottom>219</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Newfile</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>223</left>
            <top>84</top>
            <right>501</right>
            <bottom>282</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>thedata</name>
        <script></script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>375</left>
            <top>297</top>
            <right>483</right>
            <bottom>321</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Write the data</name>
        <script>on mouseUpglobal refnumput PrefWorks(Write,refnum,card field thedata)end mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>244</left>
            <top>297</top>
            <right>352</right>
            <bottom>321</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Read the data</name>
        <script>on mouseUpglobal refnumput PrefWorks(Read,refnum) into fredif first word of fred is not "ERROR:" thenput fred into cd field thedataelseput fredend ifend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>85</left>
            <top>139</top>
            <right>210</right>
            <bottom>157</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>filename</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>TEXT</text>
    </content>
    <content>
        <layer>card</layer>
        <id>4</id>
        <text>R*ch</text>
    </content>
    <content>
        <layer>card</layer>
        <id>12</id>
        <text>Test Prefs</text>
    </content>
    <name>Try PrefWorks..</name>
    <script>on closecardglobal refnumhide message boxif refnum is not empty thenput PrefWorks(Close,refnum)put empty into refnumend ifput empty into cd field newfileput empty into cd field thedataend closecard</script>
</card>


card_4064.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>4064</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4977.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2582</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3145.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>23</left>
            <top>34</top>
            <right>489</right>
            <bottom>336</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>About PrefWorks...</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>What is it:-----------PrefWorks was written to fill a need here at Curtin University for our Multimedia development in SuperCard stacks to get data to and from preference files for stacks that lived on CDs.It provides an easy way of finding the correct location for a preferences file (either in the "Preferences" folder under System 7.0 or greater or in the System Folder for previous versions) and a fast way of reading and writing data to them.Go to the next card of this stack to try it out....PrefWorks is Copyright © 1993, Ken Taylor and Curtin University of TechnologyPrefWorks is distributed free, but carries no warranties of any kind.Scripting Info:---------------PrefWorks takes one mandatory parameter which tells it what to do.  The choices are as follows:1) PrefWorks(Open,FILENAME[,CREATOR,TYPE])      ..where FILENAME is the name of the prefs file           CREATOR is a four character OSType used when creating a new                   file (optional)           TYPE is a four character OSType used when creating a new                file (optional)            (If no type of creator is supplied, the file becomes a             TeachText™ file)   ..returns two items: a file reference number which is used for any                          other commands, and                        a boolean value representing whether a new file                          was created or not.2) PrefWorks(Close,REFNUM)   ..where REFNUM is the file reference number returned by the Open                  clause.   ..returns either 'OK' or a string starting with 'ERROR:' (see below)3) PrefWorks(Write,REFNUM,DATA)   ..where REFNUM is the file reference number returned by the Open                  clause, and           DATA is the data to be written.   ..returns either 'OK' or a string starting with 'ERROR:' (see below)4) PrefWorks(Read,REFNUM)   ..where REFNUM is the file reference number returned by the Open                  clause   ..returns either the data from the file or a string starting with              'ERROR:' (see below)Errors:-------Errors are usually reasonably descriptive.  The possible error returns are:'ERROR: External FS''ERROR: File not found''ERROR: File not open''ERROR: I/O''ERROR: No such volume''ERROR: Bad file reference number''ERROR: Disk full''ERROR: File locked''ERROR: String seems to be a negative length !''ERROR: Volume locked''ERROR: Write protected''ERROR: Duplicate filename''ERROR: Too many files open''ERROR: File already open for writing''ERROR: Bad file name''ERROR: Directory is full''ERROR: End of file reached''ERROR: Too Few Parameters for this function call''ERROR: Couldn't understand directive'or in the case where something odd happens:'ERROR: Unknown error NUM'..where NUM is the Macintosh OSErr.Author Information:-------------------PrefWorks was written by Ken Taylor for Curtin University in August 1993.  I can be contacted via the Internet at '[e-mail]' and would be happy to hear from you if you have any trouble with PrefWorks, any ideas for new versions (or other XFCNs or XCMDs) or even just to say hello.Ken [e-mail] Support and ProgrammingCurtin University of TechnologyKent StreetBentleyPerth, Western Australia</text>
    </content>
    <name>About PrefWorks</name>
    <script></script>
</card>